home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.0 / background_3837.txt < prev    next >
Text File  |  1989-02-26  |  7KB  |  341 lines
  1. -- background: 3837 from stack: in.0
  2. -- bmap block id: 10061
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: XFCNs
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  9. end opencard
  10.  
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: 2000
  16. -- rect: left=228 top=306 right=331 bottom=255
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 1014 / 1014
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Prev
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   if the optionkey is down then
  28.     pass mouseup
  29.   end if
  30.  
  31.   visual effect wipe right
  32.   go to previous card
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 2000
  40. -- rect: left=280 top=306 right=331 bottom=307
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 1013 / 1013
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Next
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   if the optionkey is down then
  52.     pass mouseup
  53.   end if
  54.  
  55.   visual effect wipe left
  56.   go to next card
  57. end mouseUp
  58.  
  59.  
  60.  
  61. -- part 5 (field)
  62. -- low flags: 01
  63. -- high flags: 0000
  64. -- rect: left=57 top=23 right=57 bottom=340
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 0 / 0
  67. -- text alignment: 0
  68. -- font id: 2
  69. -- text size: 24
  70. -- style flags: 0
  71. -- line height: 32
  72. -- part name: Name
  73.  
  74.  
  75. -- part 6 (field)
  76. -- low flags: 00
  77. -- high flags: 4007
  78. -- rect: left=54 top=69 right=299 bottom=309
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 3
  83. -- text size: 9
  84. -- style flags: 0
  85. -- line height: 12
  86. -- part name: 
  87. ----- HyperTalk script -----
  88. on mousewithin
  89.   if the OptionKey is down then
  90.     if the locktext of the target is true then
  91.       put true into DidUnlock
  92.       set locktext of target to false
  93.     else
  94.       put false into DidUnlock
  95.     end if
  96.     set the cursor to 2
  97.     repeat while (the OptionKey is down) and (item 1 of the rect of target <= item 1 of the mouseLoc) and (item 1 of the mouseLoc <= item 3 of the rect of target) and (item 2 of the rect of target <= item 2 of the mouseLoc) and (item 2 of the mouseLoc <= item 4 of the rect of target)
  98.       if the Mouse is down then
  99.         click at the MouseLoc
  100.         click at the ClickLoc
  101.         if the selection <> empty then
  102.           visual dissolve to gray
  103.           visual dissolve
  104.           go card selection
  105.         end if
  106.       end if
  107.     end repeat
  108.     if DidUnlock then
  109.       set the locktext of the target to true
  110.     end if
  111.   end if
  112. end mousewithin
  113.  
  114.  
  115.  
  116. -- part 7 (field)
  117. -- low flags: 00
  118. -- high flags: 0007
  119. -- rect: left=311 top=69 right=299 bottom=493
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 0
  123. -- font id: 3
  124. -- text size: 9
  125. -- style flags: 0
  126. -- line height: 12
  127. -- part name: 
  128.  
  129.  
  130. -- part 9 (button)
  131. -- low flags: 00
  132. -- high flags: A003
  133. -- rect: left=332 top=306 right=326 bottom=448
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Resource Mover
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   ResCopy
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 10 (field)
  150. -- low flags: 01
  151. -- high flags: 0000
  152. -- rect: left=255 top=311 right=327 bottom=282
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 3
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: PageNumber
  161.  
  162.  
  163. -- part 13 (button)
  164. -- low flags: 00
  165. -- high flags: 2000
  166. -- rect: left=456 top=301 right=329 bottom=493
  167. -- title width / last selected line: 0
  168. -- icon id / first selected line: 11645 / 11645
  169. -- text alignment: 1
  170. -- font id: 0
  171. -- text size: 12
  172. -- style flags: 0
  173. -- line height: 16
  174. -- part name: Return
  175. ----- HyperTalk script -----
  176. on mouseUp
  177.   if the optionkey is down then
  178.     pass mouseup
  179.   end if
  180.  
  181.   visual effect iris close
  182.   go first card
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 20 (button)
  188. -- low flags: 00
  189. -- high flags: 2004
  190. -- rect: left=2 top=74 right=117 bottom=49
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 14767 / 14767
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: About...
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   if the optionkey is down then
  202.     pass mouseup
  203.   end if
  204.  
  205.   visual iris open to gray
  206.   visual iris close to black
  207.   visual iris open to gray
  208.   visual iris close
  209.   go background information
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 21 (button)
  215. -- low flags: 00
  216. -- high flags: 2004
  217. -- rect: left=2 top=119 right=162 bottom=49
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 29114 / 29114
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: Back
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   if the optionkey is down then
  229.     pass mouseup
  230.   end if
  231.  
  232.   visual barn door close to black
  233.   visual barn door open
  234.   go back
  235. end mouseUp
  236.  
  237.  
  238.  
  239. -- part 22 (button)
  240. -- low flags: 00
  241. -- high flags: 2004
  242. -- rect: left=2 top=164 right=207 bottom=49
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 1011 / 1011
  245. -- text alignment: 1
  246. -- font id: 0
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: Home
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   if the optionkey is down then
  254.     pass mouseup
  255.   end if
  256.  
  257.   go home
  258. end mouseUp
  259.  
  260.  
  261.  
  262. -- part 23 (button)
  263. -- low flags: 00
  264. -- high flags: 2004
  265. -- rect: left=2 top=209 right=252 bottom=49
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 1000 / 1000
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: Open Stack
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   if the optionkey is down then
  277.     pass mouseup
  278.   end if
  279.  
  280.   domenu "open stack..."
  281. end mouseUp
  282.  
  283.  
  284.  
  285. -- part 24 (button)
  286. -- low flags: 00
  287. -- high flags: 2004
  288. -- rect: left=2 top=254 right=297 bottom=49
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 17343 / 17343
  291. -- text alignment: 1
  292. -- font id: 0
  293. -- text size: 12
  294. -- style flags: 0
  295. -- line height: 16
  296. -- part name: Launch Application
  297. ----- HyperTalk script -----
  298. on mouseUp
  299.   if the optionkey is down then
  300.     pass mouseup
  301.   end if
  302.  
  303.   visual venetian blinds to gray
  304.   visual venetian blinds to black
  305.   visual venetian blinds to gray
  306.   visual venetian blinds
  307.  
  308.   go to background "Mini HyperStation"
  309.  
  310. end mouseUp
  311.  
  312.  
  313.  
  314. -- part 25 (button)
  315. -- low flags: 00
  316. -- high flags: 2004
  317. -- rect: left=2 top=299 right=342 bottom=49
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 21786 / 21786
  320. -- text alignment: 1
  321. -- font id: 0
  322. -- text size: 12
  323. -- style flags: 0
  324. -- line height: 16
  325. -- part name: Menus Off
  326. ----- HyperTalk script -----
  327. on mouseUp
  328.   if the optionkey is down then
  329.     pass mouseup
  330.   end if
  331.  
  332.   If the short name of the target is "Menus On" then
  333.     set the name of the target to "Menus Off"
  334.     show menubar
  335.   else
  336.     set the name of the target to "Menus On"
  337.     hide menubar
  338.   end if
  339. end mouseUp
  340.  
  341.